
;; Acquire form. 

(eq? (make-buffer/shared "audio/metal.wav")
     (make-buffer/shared "audio/metal.wav"))	; => #t

;; Release form.

(let ((b (make-buffer/shared "audio/metal.wav")))
  (buffer/shared-release b))

;; Free unused form.

(buffer/shared-collect)
